perm filename MORE.LSP[DEN,LMM] blob sn#044063 filedate 1973-05-19 generic text, type T, neo UTF8

(DEFPROP MOREFNS
 (MOREFNS *MIN *MAX FIX+ FILELST D CONDEVAL COLLECT (SETQ CURRENTFILE NIL))
VALUE)

(DEFPROP *MIN
 (LAMBDA (A B) (COND ((GREATERP A B) B) (T A)))
EXPR)

(DEFPROP *MAX
 (LAMBDA (A B) (COND ((GREATERP B A) B) (T A)))
EXPR)

(DEFPROP FIX+
 (LAMBDA (N) (FIX (PLUS N 0.99999899)))
EXPR)

(DEFPROP FILELST
 (FILELST FORSM
	  DUMMY
	  INIT
	  FORLSP
	  MORE
	  CYCPRE
	  CYCOMA
	  CYCOMB
	  CYCOMD
	  CYCOME
	  CYCOMF
	  CYCOMG
	  CYCOMH
	  EXPAND
	  STRGEN
	  CYCDRJ
	  CRESOR
	  CRECYC
	  CRELAP
	  ARGLISTS
	  FOROUT)
VALUE)

(DEFPROP D
 (LAMBDA(DEFL)
  (PROG1 (SETQ LASTWORD (SETQ DEFL (EVAL (CONS (QUOTE DE) DEFL))))
	 (AND CURRENTFILE (SET (FILEFNS CURRENTFILE) (CONS DEFL (CONDEVAL (FILEFNS CURRENTFILE)))))))
FEXPR)

(DEFPROP CONDEVAL
 (LAMBDA (VAR) (CDR (OR# (GET VAR (QUOTE VALUE)) (QUOTE (NIL)))))
EXPR)

(DEFPROP COLLECT
 (LAMBDA (FIL) (SETQ CURRENTFILE FIL) (AND FIL (SETQ FILELST (CONS FIL (DREMOVE FIL FILELST)))))
EXPR)

(SETQ CURRENTFILE NIL)